home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / games / wasps003.zip / INCLUSIF.ZIP / SUBASCII.BAS < prev    next >
BASIC Source File  |  1996-02-10  |  649b  |  22 lines
  1. 1 REM     H1TaS     
  2. 10 INPUT"FIRST INPUT FILE"; F2$: INPUT"SECOND INPUT FILE"; F1$: D$ = F1$
  3. 20 INPUT "SPARE ALL FILES WITH THIS STRING IN THEM"; S$
  4. 30 OPEN D$ FOR INPUT AS 1
  5. 40 ON ERROR GOTO 90
  6. 50 LINE INPUT #1, L$
  7. 60 N$ = L$
  8. 70 IF INSTR(L$, S$) = 0 THEN GOSUB 2010
  9. 79 ON ERROR GOTO 90
  10. 80 GOTO 50
  11. 90 RESUME 100
  12. 100 CLOSE: STOP
  13. 2000 REM
  14. 2010 FI$ = F2$
  15. 2020 P$ = N$: OPEN FI$ FOR INPUT AS 2: OPEN "B" FOR OUTPUT AS 3
  16. 2030 ON ERROR GOTO 2070
  17. 2040 LINE INPUT #2, L$
  18. 2050 X = INSTR(L$, P$): IF X = 0 THEN PRINT L$: PRINT #3, L$: GOTO 2040
  19. 2060 BEEP: GOTO 2040
  20. 2070 RESUME 2080
  21. 2080 CLOSE 2: CLOSE 3: SHELL "COPY B " + F2$: RETURN
  22.